16
|
How do I refresh the control
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.Items.Add("Item 1")
oExMenu.Refresh()
|
15
|
How do I change the color to highligth the selected item
![](images/exmenuq15.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.HighLightBorderColor = 255
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
14
|
How do I change the drop down, popup menu foreground color
![](images/exmenuq14.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.PopupForeColor = 255
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
13
|
How do I change the drop down, popup menu background color
![](images/exmenuq13.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.PopupBackColor = 255
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
12
|
How do I change the control's shadow color
![](images/exmenuq12.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.ShadowColor = 255
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
11
|
How do I place the control on vertical
![](images/exmenuq11.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.OpenMode = 1
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
10
|
How do I change the control's appearance
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.Appearance = 2
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
9
|
How do I change the control's appearance
![](images/exmenuq9.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.Appearance = 0
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
8
|
How do I change the visual appearance effect for the selected item, using EBN
![](images/exmenuq8.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExMenu.SelBackColor = 16777216
oExMenu.SelForeColor = 0
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
7
|
How do I change the colors for the selected item
![](images/exmenuq7.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.SelBackColor = 0
oExMenu.SelForeColor = 16777215
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
6
|
How do I change the control's foreground color
![](images/exmenuq6.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.ForeColor = 255
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
5
|
How do I change the control's background color
![](images/exmenuq5.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.BackColor = 13158600
|
4
|
How can I change the control's font
![](images/exmenuq4.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.Font.Name = "Tahoma"
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
3
|
How do I change the drop down menu's border
![](images/exmenuq3.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.Border = 1
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
2
|
How do I change the control's border, using your EBN files
![](images/exmenuq2.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExMenu.MenuBarBorder = 16777216 '1000000 +
oExMenu.Border = 16777216 '1000000 +
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|
1
|
How do I change the control's border
![](images/exmenuq1.png)
Dim oExMenu as P
oExMenu = topparent:CONTROL_ACTIVEX1.activex
oExMenu.MenuBarBorder = 1
oExMenu.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
|